home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Killer Drive 64 6
/
Killer-Drive_64_06_1998_-_de_Side_D.d64
/
das leben des
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
40 lines
1 poke 53272,23
3 rem das leben des brain
4 rem (w) by peter diehm 92
5 poke 53280,0:poke 53281,0:print"[147]"
7 printchr$(14)"":poke 650,255:poke 657,128
8 rem a pdpd soft produktion 2/92
10 print"[147]"
11 gosub20:goto 100
20 v=53248:fori=0to62:readxx:poke832+i,xx
21 nexti
23 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,128
24 data 3,255,224,1,255,192,0,255,128,0,255,128,0,127,0,0,127,0
25 data 0,62,0,0,62,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
26 poke v+29,21:poke 53269,1:poke 2040,13:poke v+43,0:pokev+39,7
27 poke v+0,140:poke v+1,98
30 return
100 print" [196]as [204]eben des [194]rain ! [214]orwort !":gosub103:gosub 106:gosub103
101 gosub 108:gosub106:gosub108:gosub 103:gosub108:gosub103:gosub108:goto110
103 print""
105 printspc(16)"[161][183][170][146]":fori=1to200:next:return
106 print""
107 printspc(16)" [170][146]":fori=1to100:next:return
108 print""
109 printspc(16)"[183][163][183][146]":fori=1to240:next:return
110 printspc(1)" [208] [204] [207] [208] !
111 [153]""
112 [153][166]16)"stop wait":[129]i[178]1[164]240:[130]
114 [153][166]1)"str$amit du deine valrwartungen nicht zu
115 printspc(1)"hoch setzt sage ich dir jetzt schon
116 [153][166]1)"einmal das das atndventure recht wenig
117 printspc(1)"mit den gleichnamigen [198]ilm zu tun hat.
118 [153][166]1)"(NULL)ediglich der erste (NULL)art ist eine atnn=
120 printspc(1)"lehnung an den [198]ilm !"
122 printspc(30)"[158]-[212]aste-[146]"
123 get d$:if d$="" then 123
124 get d$:if d$="" then 124
125 poke 53269,0:restore
126 load"brain ! <=-",8,1
127 run